


if fp_mstr.fp_months[{1}] <> input fp_mstr.fp_months[{1}] then do:
    create fph_hist.
    assign
        fph_trnbr = next-value(tr_sq02)
        fph_part = fp_mstr.fp_part
        fph_site = fp_mstr.fp_site
        fph_start = fp_mstr.fp_start
        fph_index = {1}
        fph_date  = {2}
        fph_bef_val = fp_mstr.fp_months[{1}]
        fph_aft_val = input fp_mstr.fp_months[{1}]
        fph_userid  = global_userid
        fph_type    = "M"
        fph_mod_date = today
        .

end.


